international/characters.el: Add category '|' (word breakable) to fullwidth characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f6d3555975e582d7f5b18b8e72613e0a18eeab2e..19135944b17f551a58c3266d4975c04122964d5d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-15  Kenichi Handa  <handa@m17n.org>
+
+       * international/characters.el: Add category '|' (word breakable)
+       to fullwidth characters.
+
 2010-10-14  Kenichi Handa  <handa@m17n.org>
 
        * mail/rmail.el (rmail-show-message-1): Catch an error of

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index cf43bb1e6cad7b34ae74a02d3d181225d4543e73..e33f14493575ed692bd9a23ad8df57d381f6a374 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -188,6 +188,9 @@ Combining diacritic or mark (Unicode General Category M)")
                               cp932-2-byte))
   (map-charset-chars #'modify-category-entry l ?j))
 
+;; Fullwidth characters
+(modify-category-entry '(#xff01 . #xff60) ?\|)
+
 ;; Unicode equivalents of JISX0201-kana
 (let ((range '(#xff61 . #xff9f)))
   (modify-category-entry range  ?k)